Mac100% 1999 April/MAC100-1999-04.ISO.7z/MAC100-1999-04.ISO/ｵﾝﾗｲﾝｿﾌﾄ定点観測/Utility/CNIF_MacroMaker 1.4.sit/CNIF_MacroMaker 1.4/CNIF_MacroMaker/background_54754.xml

Extensible Markup Language | 1999-01-11 | 43KB | 936 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>54754</id>
    <filler1>0</filler1>
    <bitmap>BMAP_54791.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
    <part>
        <id>61</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>30</top>
            <right>505</right>
            <bottom>46</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseUpopenEditLogend mouseUp</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>4</top>
            <right>194</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>mainMenu</name>
        <script>on mouseDownmainMenuend mouseDown</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>200</left>
            <top>4</top>
            <right>445</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenu</name>
        <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>285</left>
            <top>317</top>
            <right>305</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8349</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevBgend mouseUp</script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>306</left>
            <top>317</top>
            <right>326</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23718</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevCdend mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>325</left>
            <top>317</top>
            <right>345</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23717</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextCdend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>317</top>
            <right>366</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextBgend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>370</left>
            <top>317</top>
            <right>390</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13301</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevMcend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>389</left>
            <top>317</top>
            <right>409</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13302</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextMcend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>454</left>
            <top>317</top>
            <right>474</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6720</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoTopCdend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>330</top>
            <right>12</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>487</left>
            <top>5</top>
            <right>505</right>
            <bottom>23</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>createMark</name>
        <script>on mouseUpset marked of this card to hilite of meend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>39</left>
            <top>318</top>
            <right>153</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>NIFTY-Navigator II</name>
        <script>on mouseUpsend "mouseUp" to bg btn id 26 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>28</top>
            <right>84</right>
            <bottom>48</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseDownget meforumMenuif me <> it then send "mouseUp true" to bg btn id 67end mouseDown</script>
    </part>
    <part>
        <id>58</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>47</top>
            <right>505</right>
            <bottom>273</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>italic</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseUpset cursor to watchput the selectedText of me into cTextif cText is empty then exit mouseUpput value(char 1 to 2 of cText) into mesNoput char 29 to 68 of cText into mesNameif mesNo is not a integer then exit mouseUpput last line of char 1 to (word 4 of the clickChunk) of me into cChunkget the length of cChunkif char 4 of cText <> "*" or (it > 19 and it < 27) thenif the shiftKey is up thenget word 1 of char 21 to 25 of cTextget InputDialog("MREad ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｩwﾃｭﾃ‹",mesNo & "ﾃｮ窶佚｢ﾃ氾｣cﾃｩ竏ｫﾃ‡ﾂｩﾃ‡ﾃﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬﾃｮ竕 ﾃ･ﾃｦﾃｪﾃｮﾃ‡ﾃεｨ窶榲･ﾂｿﾃ③(1ﾃ⑶999)",it,"OK,ﾃ･ﾂｬﾃｯﾂ ﾃｪﾃ淌･ﾂｿﾃ‡ﾂｻﾃ‡ﾂｵ,Cancel")put line 2 of it into dlogBtnput line 3 of it into limitif limit is not a integer and limit <> empty or dlogBtn is "Cancel" thenselect line 0 of meexit mouseUpend ifif limit < 1 or dlogBtn is "ﾃ･ﾂｬﾃｯﾂ ﾃｪﾃ淌･ﾂｿﾃ‡ﾂｻﾃ‡ﾂｵ" then put empty into limitelse if limit > 999 then put 999 into limitput rc(limit) into char 20 to 26 of cTextelseput "[     ]" into char 20 to 26 of cTextend ifput "*" into char 4 of cTextelseput " " into char 4 of cTextput "[     ]" into char 20 to 26 of cTextend ifput cText into the selectedLine of meselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeavefunction rc nput "[     ]" into tput n into char (7 - length(n)) to 6 of treturn tend rc</script>
    </part>
    <part>
        <id>66</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>412</left>
            <top>284</top>
            <right>493</right>
            <bottom>304</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ</name>
        <script>on mouseUp filePathput "*Return*ﾃｮ窶佚ｧﾃ愿①ﾃｮ竕 ﾃ･ﾃｦ (ﾃｱﾂ｢ﾃｬﾂｫ) ﾃ①ﾃｧ竕暗ｪVﾃ①ﾃ①ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂｺ" into k1put return & "ﾃ…ﾃ‘" into k2readLogFile filePath,k1,k2end mouseUp</script>
    </part>
    <part>
        <id>67</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>284</top>
            <right>402</right>
            <bottom>304</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
        <script>on mouseUp oplock screenset cursor to watchput bg fld id 58 into titleListif the optionKey is down or op is true thenput setlist(bg fld id 14) into titleListend ifif titleList is empty then put "ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｨﾃ崚｣ﾂｵﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ" into line 8 of titleListif "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｨﾃ崚｣ﾂｵﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ" is not in titleList thenrepeat with r = 1 to the number of lines of titleListput " " into char 4 of line r of titleListput "[     ]" into char 20 to 26 of line r of titleListend repeatend ifput titleList into bg fld id 58unlock screenend mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>355</left>
            <top>28</top>
            <right>505</right>
            <bottom>99</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenuList</name>
        <script></script>
    </part>
    <part>
        <id>78</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>15</left>
            <top>286</top>
            <right>118</right>
            <bottom>302</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
        <script>on mouseUpset the lockText of bg fld id 58 to the hilite of meend mouseUp</script>
    </part>
    <part>
        <id>85</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>496</left>
            <top>326</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>BookMark</name>
        <script>on mouseUpsetBookmarkend mouseUp</script>
    </part>
    <part>
        <id>86</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>476</left>
            <top>314</top>
            <right>512</right>
            <bottom>328</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>BookMarkNo</name>
        <script></script>
    </part>
    <part>
        <id>89</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>260</left>
            <top>287</top>
            <right>299</right>
            <bottom>303</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on closeFieldcheckNend closeFieldon exitFieldcheckNend exitFieldon returnInFieldcheckNend returnInFieldon checkNif me is not a integer or me < 1 thenbeepanswer "ﾃｪﾃ†ﾃｪﾃｮﾃ‡ï｣ｿﾃｬﾂｸﾃ‡ﾃ催‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"put 999 into meselect text of meelseput me into meend ifend checkN</script>
    </part>
    <part>
        <id>90</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>122</left>
            <top>284</top>
            <right>169</right>
            <bottom>304</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ､m ﾃｮF</name>
        <script>on mouseUpget ListSelect ("0",mreCommand(),"ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ‡ﾃεｩwﾃｭﾃ‹","80,40,430,280","ﾃ､m ﾃｮF",empty,return)end mouseUp</script>
    </part>
    <part>
        <id>92</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>160</left>
            <top>318</top>
            <right>274</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹</name>
        <script>on mouseUpvisual effect barn door close fast to inversevisual effect barn door open fastput bg fld id 14 into forumNameput the number of cards of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" into cnrepeat with r = 1 to cnget bg fld id 14 of cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹"if it is forumName thengo to cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹"exit mouseUpend ifend repeatgo to bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹"end mouseUp</script>
    </part>
    <part>
        <id>93</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>410</left>
            <top>317</top>
            <right>430</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13303</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGOPrevBMend mouseUp</script>
    </part>
    <part>
        <id>94</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>429</left>
            <top>317</top>
            <right>449</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13304</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGONextBMend mouseUp</script>
    </part>
    <part>
        <id>95</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>319</top>
            <right>31</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21700</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GoHome</name>
        <script>on mouseUpgoHomeend mouseUp</script>
    </part>
    <part>
        <id>96</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>448</left>
            <top>6</top>
            <right>466</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12490</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>openGuide</name>
        <script>on mouseUpCNMGuide "ﾃ｢ﾃ氾｣cﾃｩ竏ｫMREadﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ"end mouseUp</script>
    </part>
    <part>
        <id>97</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>467</left>
            <top>6</top>
            <right>485</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6356</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>HelpON/OFF</name>
        <script>on mouseUpHelpToggleend mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫMREad</text>
    </content>
    <content>
        <layer>background</layer>
        <id>86</id>
        <text>0 / 0</text>
    </content>
    <content>
        <layer>background</layer>
        <id>13</id>
        <text>Untitled_1</text>
    </content>
    <name>ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫMREad</name>
    <script>on newCardset the cursor to watchsend "mouseUp" to bg btn id 67put "999" into bg fld id 89pass newCardend newCardon closebackgroundset the lockText of bg fld id 58 to trueset the hilite of bg btn id 78 to truepass closeBackgroundend closebackgroundon controlKey whichKeyif whichKey = 3 then -- c "ﾃ､mﾃｮF"sendBtn "bg btn id 90"else if whichKey = 12 then -- L "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹"sendBtn "bg btn id 92"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput (cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ") into modeif mode then put "14,58,61" into listelse put "58,61" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatsend "mouseUp" to bg btn id 67put "999" into bg fld id 89if mode thenif the number of lines of bg fld "subMenuList" < 2 then put empty into bg fld "subMenuList"reNameCard "Untitled_1"end ifend clearData-- ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂｺﾃ嘉､ﾃ厩ﾃ曳ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺon RoomTitle ForumName,titleList,logHeader,nCardglobal cNMDialogOFF,cNMautoReadif ForumName is "PATIO" then exit RoomTitleput "MRE :" && ForumName && "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｭﾃœ"put false into FCarddelete line 1 of titleListput changeTitle(titleList) into titleListpush cardlock screenset the lockMessages to trueput the number of cards of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫMREad" into cnput empty into emptyCardrepeat with r = 1 to cngo to cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫMREad"set the cursor to busyget bg fld id 14if it is empty then put the short id of this cd into emptyCardif it is ForumName thenput bg fld id 58 into oldListput empty into mreLimitrepeat with i = 1 to the number of lines of oldListput line i of oldList into tif char 4 of t is "*" thenput char 1 to 2 of t & "," after line 1 of mreLimitput char 21 to 25 of t & "," after line 2 of mreLimitend ifend repeatif mreLimit <> empty thenrepeat with i = 1 to the number of lines of titleListput line i of titleList into tput MtScanList(line 1 of mreLimit,char 1 to 2 of t,,true) into nif n <> empty thenput "*" into char 4 of line i of titleListput item (item 2 of n) of line 2 of mreLimit into char 21 to 25 of line i of titleListend ifend repeatend ifput titleList into bg fld id 58put logHeader into bg fld id 61put true into FCardLoadCard the short id of this cdif bmSetting(the short name of this bg) and cNMautoRead thenbookmark the short id of this cd,trueend ifend ifend repeat-- ﾃｪVﾃ｣K / ﾃ雨ﾃ…[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡if FCard is false and nCard <> false thenput ForumName & "-MRE" into cNMDialogOFFif emptyCard <> empty thengo to cd id emptyCardreNameCard cNMDialogOFFelseput cNMDialogOFF && "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ雨ﾃ…[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"doMenu "New Card"end ifput false into cNMDialogOFFput ForumName into bg fld id 14-- ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃｱﾂｺﾃｭﾂｫﾃ｢ﾂ｡get newForum (ForumName)put titleList into bg fld id 58put logHeader into bg fld id 61LoadCard the short id of this cdget bmSetting("ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹")if it is true and cNMautoRead then bookmark the short id of this cd,trueunmark this cdend ifpop cardunlock screenput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①" & ForumNameend RoomTitlefunction changeTitle titleListrepeat with r = 1 to the number of lines of titleListput "[     ]" into char 20 to 26 of line r of titleListend repeatreturn titleListend changeTitle----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableListset the cursor to watchput bg fld "subMenu" into cdNameput mreCommand() into mrelistput cdName & "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"ReportCdNameget dataCheck(mrelist)if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝‡邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ‡竕暗‡竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"put bg fld id 14 into forumName-- GO Forumput "cNM" & forumName & "_" into variableNamedo "global" && variableNameif MtScanList (cNMvariableList,variableName,,true) is empty thendo "put empty into" && variableNameputVariableName variableNameget MacroGoForum(forumName)do "put it after" && variableNameend ifput variableName & "MRE" into variableName2if MtScanList (cNMvariableList,variableName2,,true) is empty thendo "global" && variableName2do "put empty into" && variableName2putVariableName variableName2end ifput (forumName & return is in cd fld id 1 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ烏ﾃ嘉｢ﾃ…[ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹") into eCheckput the hilite of cd btn id 13 of cd id 40331 into pCheckput the hilite of cd btn id 14 of cd id 40331 into sCheckif pCheck thenif eCheck thenput 3 into lelseput 2 into lend ifif sCheck is false thenadd 1 to lend ifelseput the number of lines of mrelist into lend ifput "s:MES " into commandrepeat until mrelist is emptyput line 1 to l of mrelist into listdelete line 1 to l of mrelistput empty into roomNumrepeat with r = 1 to the number of lines of listput line r of list into roomdelete char 1 to (offset("ROOM:",room) + 4) of roomput room & "," after roomNumend repeatput shortNumber(roomNum,false) into roomNum-- sort items of roomNum numericif last char of roomNum is "," then delete last char of roomNumif pCheck thenif eCheck thenget macro2(list,forumName,roomNum,command,sCheck)elseget macro1(list,forumName,roomNum,command,sCheck)end ifelseif eCheck thenget macro4(list,forumName,roomNum,command)elseget macro3(list,forumName,roomNum,command)end ifend ifput checkLabel(it) into labelListput "*: TotalLabel : " & the number of items of labelList & return after itdo "put it after" && variableName2if the hilite of cd btn id 11 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" is false then put "s:RX " into commandend repeatend makeMacrofunction macro1 list,forumName,roomNum,command,sCheckput "m: [ " & forumName & " ] ROOM:" & shortNumber(roomNum,true) && "ﾃｱﾂ｢ﾃｬﾂｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" & return into mput nextLabel() into label1if roomNum <> "ALL" thenput nextLabel() into label2put nextLabel() into label3end ifif roomNum is "ALL" thenput "s:MES^m" & return &ﾂｬ"r:^mﾃ…ﾃ柁’" & label1 & ":^mFORUM>" & return &ﾂｬ"s:SET PAUSE OFF^m" & return & "r:^mﾃ…ﾃ‘" & return after melseput command & item 1 of roomNum & "^m" & return &ﾂｬ"r:^mﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾆ’" & label3 & ":^mﾃ…ﾃｼ" & return &ﾂｬ"r:^mCCS(.)>" & return after mif command is "s:MES " thenput "s:SET PAUSE OFF^m" & return & "r:^mCCS(.)>" & return after mend ifend ifput empty into label6bput the number of lines of list into nlrepeat with r = 1 to nlput nextLabel() into label4if sCheck then put nextLabel() into label5if r <> nl thenput nextLabel() into label6aend ifif label6b <> empty then put label6b & ":" & return after mput "s:" & line r of list & "^m" & return &ﾂｬlabel4 & ":" & return after mif roomNum is "ALL" thenput "r:^mﾃ…ﾃ‘" into pelseput "r:^mCCS(.)>" into pend ifif sCheck thenput p & "ﾆ’" & label5 & ":^mFORUM>" & return after melseput p & return after mend ifif r is nl thenput "t:" & label1 & ":1:." & return &ﾂｬ"j:" & label4 & return after melseput "t:" & label6a & ":1:." & return &ﾂｬ"j:" & label4 & return after mend ifif sCheck thenput label5 & ":" & return &ﾂｬ"t:" & label1 & ":1:." & return &ﾂｬ"j:" & label4 & return after mend ifput label6a into label6bend repeatif roomNum <> "ALL" thenput label3 & ":" & return &ﾂｬ"r:ﾃ‡竕､ﾃｳﾃｲﾃｳpﾆ’" & label2 & ":ﾃ…ﾃｼ" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mCCS(.)>ﾆ’" & label1 & ":^mﾃ…ﾃ‘" & return after mend ifput label1 & ":" & return after mreturn mend macro1function macro2 list,forumName,roomNum,command,sCheckput "m: [ " & forumName & " ] ROOM:" & shortNumber(roomNum,true) && "ﾃｱﾂ｢ﾃｬﾂｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" & return into mput nextLabel() into label1if roomNum is "ALL" thenput "s:MES^m" & return &ﾂｬ"r:^mﾃ…ﾃ柁’" & label1 & ":^mFORUM>" & return &ﾂｬ"s:SET PAUSE OFF^m" & return & "r:^mﾃ…ﾃ‘" & return after melseput command & item 1 of roomNum & "^m" & return &ﾂｬ"r:^mCCS(.)>ﾆ’" & label1 & ":^mFORUM>" & return after mif command is "s:MES " thenput "s:SET PAUSE OFF^m" & return & "r:^mCCS(.)>" & return after mend ifend ifput empty into label4bput the number of lines of list into nlrepeat with r = 1 to nlput nextLabel() into label2if sCheck then put nextLabel() into label3if r <> nl thenput nextLabel() into label4aend ifif label4b <> empty then put label4b & ":" & return after mput "s:" & line r of list & "^m" & return &ﾂｬlabel2 & ":" & return after mif roomNum is "ALL" thenput "r:^mﾃ…ﾃ‘" into pelseput "r:^mCCS(.)>" into pend ifif sCheck thenput p & "ﾆ’" & label3 & ":^mFORUM>" & return after melseput p & return after mend ifif r is nl thenput "t:" & label1 & ":1:." & return &ﾂｬ"j:" & label2 & return after melseput "t:" & label4a & ":1:." & return &ﾂｬ"j:" & label2 & return after mend ifif sCheck thenput label3 & ":" & return &ﾂｬ"t:" & label1 & ":1:." & return &ﾂｬ"j:" & label2 & return after mend ifput label4a into label4bend repeatput label1 & ":" & return after mreturn mend macro2--function macro3 list,forumName,roomNum,commandput "m: [ " & forumName & " ] ROOM:" & shortNumber(roomNum,true) && "ﾃｱﾂ｢ﾃｬﾂｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" & return into mput nextLabel() into label1if roomNum <> "ALL" thenput nextLabel() into label2put nextLabel() into label3end ifif roomNum is "ALL" thenput "s:MES^m" & return &ﾂｬ"r:^mﾃ…ﾃ柁’" & label1 & ":^mFORUM>" & return &ﾂｬ"s:SET PAUSE OFF^m" & return & "r:^mﾃ…ﾃ‘" & return after melseput command & item 1 of roomNum & "^m" & return &ﾂｬ"r:^mﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾆ’" & label3 & ":^mﾃ…ﾃｼ" & return &ﾂｬ"r:^mCCS(.)>" & return after mif command is "s:MES " thenput "s:SET PAUSE OFF^m" & return & "r:^mCCS(.)>" & return after mend ifend ifrepeat with r = 1 to the number of lines of listif roomNum is "ALL" thenput "r:^mﾃ…ﾃ柁’" into pelseput "r:^mCCS(.)>ﾆ’" into pend ifput "s:" & line r of list & "^m" & return &ﾂｬp & label1 & ":^mFORUM>" & return after mend repeatif roomNum <> "ALL" thenput "j:" & label1 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"r:ﾃ‡竕､ﾃｳﾃｲﾃｳpﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ槌’" & label2 & ":ﾃ…ﾃｼ" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mCCS(.)>ﾆ’" & label1 & ":^mﾃ…ﾃ‘" & return after mend ifput label1 & ":" & return after mreturn mend macro3function macro4 list,forumName,roomNum,commandput "m: [ " & forumName & " ] ROOM:" & shortNumber(roomNum,true) && "ﾃｱﾂ｢ﾃｬﾂｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" & return into mput nextLabel() into label1if roomNum is "ALL" thenput "s:MES^m" & return &ﾂｬ"r:^mﾃ…ﾃ柁’" & label1 & ":^mFORUM>" & return &ﾂｬ"s:SET PAUSE OFF^m" & return & "r:^mﾃ…ﾃ‘" & return after melseput command & item 1 of roomNum & "^m" & return &ﾂｬ"r:^mCCS(.)>ﾆ’" & label1 & ":^mFORUM>" & return after mif command is "s:MES " thenput "s:SET PAUSE OFF^m" & return & "r:^mCCS(.)>" & return after mend ifend ifrepeat with r = 1 to the number of lines of listif roomNum is "ALL" thenput "r:^mﾃ…ﾃ柁’" into pelseput "r:^mCCS(.)>ﾆ’" into pend ifput "s:" & line r of list & "^m" & return &ﾂｬp & label1 & ":^mFORUM>" & return after mend repeatput label1 & ":" & return after mreturn mend macro4-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheck mrelistput empty into tif bg fld id 14 is empty thenput "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃｱﾂｺﾃ‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after tend ifif mrelist is empty thenput "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ‡ﾃεｩwﾃｭﾃ凝‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after tend ifreturn tend dataCheckfunction setlist forumNameput empty into RoomNameListput the number of cards of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" into cnrepeat with r = 1 to cnif bg fld id 14 of cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" is forumName thenput bg fld id 58 of cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" into RoomNameListif RoomNameList is empty then next repeatend ifend repeatreturn RoomNameListend setlistfunction mreCommandput empty into mreTput empty into mreSput bg fld id 58 into roomListif roomList <> empty thenrepeat with r = 1 to the number of lines of roomListget line r of roomListif char 4 of it <> "*" then next repeatput char 21 to 25 of it into limitput value(char 1 to 2 of it) into roomNumif limit is "     " thenput roomNum & "," after mreTelseput "MREad LIMIT:" & value(limit) && "ROOM:" & roomNum & return after mreSend ifend repeatend ifif mreT <> empty thenput shortNumber(mreT,true) into mreTput "MREad LIMIT:" & bg fld id 89 && "ROOM:" & mreT & return after mreSend ifif mreS is empty thenput "MREad LIMIT:" & bg fld id 89 && "ROOM:ALL" & return into mreSend ifreturn mreSend mreCommand----------on GComBtnreturn "bg btn id 66"end GComBtnon scrFldsetScrollFld "bg fld id 58"end scrFld</script>
</background>